home *** CD-ROM | disk | FTP | other *** search
/ AGA Toolkit '97 / The AGA Toolkit '97.iso / programming / asm / popt / dhr.a next >
Encoding:
Text File  |  1996-09-07  |  11.4 KB  |  866 lines
  1.     section text,code
  2.  
  3.     xdef    _LOOPS
  4.     section data,data
  5.  
  6.     ds.w    0
  7. _LOOPS
  8.     dc.l    $0000c350
  9.  
  10.     xdef    _IntGlob
  11.     section bss,bss
  12.  
  13.     ds.w    0
  14. _IntGlob    ds.b    4
  15.     xdef    _BoolGlob
  16.     ds.w    0
  17. _BoolGlob    ds.b    4
  18.     xdef    _Char1Glob
  19.     ds.w    0
  20. _Char1Glob    ds.b    1
  21.     xdef    _Char2Glob
  22.     ds.w    0
  23. _Char2Glob    ds.b    1
  24.     xdef    _Array1Glob
  25.     ds.w    0
  26. _Array1Glob    ds.b    204
  27.     xdef    _Array2Glob
  28.     ds.w    0
  29. _Array2Glob    ds.b    10404
  30.     xdef    _PtrGlb
  31.     ds.w    0
  32. _PtrGlb    ds.b    4
  33.     xdef    _PtrGlbNext
  34.     ds.w    0
  35. _PtrGlbNext    ds.b    4
  36.     section text,code
  37.  
  38.     ds.l 0
  39.     procstart
  40.     xdef    _main
  41. _main:
  42.     movem.l    l8,-(sp)
  43.     link    A5,#-l5
  44.     move.l    #$1388,_LOOPS(A4)
  45.     bra    l3
  46. l2
  47.     move.l    _LOOPS(A4),D0
  48.     move.l    #$AA,D1
  49.     jsr    __muls(pc)
  50.     move.l    #$03E8,D1
  51.     jsr    __muls(pc)
  52.     moveq.l    #1,D1
  53.     add.l    D2,D1
  54.     jsr    __divs(pc)
  55.     move.l    D0,_LOOPS(A4)
  56. l3
  57.     jsr    _Proc0(pc)
  58.     move.l    D0,D2
  59.     cmp.l    #$3A98,D2
  60.     blt    l2
  61. l10
  62. l4
  63.     moveq.l    #0,D0
  64.     bra    l6
  65. l6
  66.     unlk    A5
  67.     move.l    (sp)+,D2
  68.     rts
  69. l8    reg    D2
  70. l7    equ    12
  71. l5    equ    0
  72.     procend
  73.     procstart
  74.     xdef    _fake
  75. _fake:
  76.     movem.l    l14,-(sp)
  77.     link    A5,#-l11
  78. l12
  79.     unlk    A5
  80.     rts
  81. l14    reg    
  82. l13    equ    8
  83. l11    equ    0
  84.     procend
  85.     procstart
  86.     xdef    _Proc0
  87. _Proc0:
  88.     movem.l    l41,-(sp)
  89.     link    A5,#-l38
  90.     moveq.l    #0,D6
  91.     jsr    _Forbid(pc)
  92.     jsr    _timer(pc)
  93.     move.l    D0,D4
  94.     moveq.l    #0,D7
  95.     bra    l19
  96. l16
  97. l17
  98.     addq.l    #$01,D7
  99. l19
  100.     cmp.l    _LOOPS(A4),D7
  101.     blt    l16
  102. l48
  103. l18
  104.     jsr    _timer(pc)
  105.     move.l    D0,D6
  106.     sub.l    D4,D6
  107.     jsr    _Permit(pc)
  108.     pea    48.W
  109.     jsr    _malloc(pc)
  110.     addq.l    #4,sp
  111.     move.l    D0,_PtrGlbNext(A4)
  112.     pea    48.W
  113.     jsr    _malloc(pc)
  114.     addq.l    #4,sp
  115.     move.l    D0,_PtrGlb(A4)
  116.     move.l    _PtrGlb(A4),A0
  117.     move.l    _PtrGlbNext(A4),(A0)
  118.     move.l    _PtrGlb(A4),A0
  119.     moveq.l    #0,D0
  120.     move.l    D0,4(A0)
  121.     move.l    _PtrGlb(A4),A0
  122.     moveq.l    #2,D0
  123.     move.l    D0,8(A0)
  124.     move.l    _PtrGlb(A4),A0
  125.     moveq.l    #40,D0
  126.     move.l    D0,12(A0)
  127.     pea.l    l34(pc)
  128.     move.l    _PtrGlb(A4),A0
  129.     pea.l    16(A0)
  130.     jsr    _strcpy(pc)
  131.     addq.l    #8,sp
  132.     moveq.l    #10,D0
  133.     move.l    D0,_Array2Glob+1660(A4)
  134.     jsr    _timer(pc)
  135.     move.l    D0,D4
  136.     jsr    _Forbid(pc)
  137.     moveq.l    #0,D7
  138.     bra    l23
  139. l20
  140.     jsr    _Proc5(pc)
  141.     jsr    _Proc4(pc)
  142.     moveq.l    #2,D0
  143.     move.l    D0,-4(A5)
  144.     moveq.l    #3,D2
  145.     pea.l    l35(pc)
  146.     pea.l    -76(A5)
  147.     jsr    _strcpy(pc)
  148.     addq.l    #8,sp
  149.     moveq.l    #1,D0
  150.     move.l    D0,-14(A5)
  151.     pea.l    -76(A5)
  152.     pea.l    -45(A5)
  153.     jsr    _Func2(pc)
  154.     addq.l    #8,sp
  155.     moveq.l    #0,D1
  156.     tst.l    D0
  157.     seq.b    D1
  158.     neg.b    D1
  159.     move.l    D1,_BoolGlob(A4)
  160.     bra    l25
  161. l24
  162.     move.w    -2(A5),D0
  163.     muls.w    #$05,D0
  164.     sub.l    D2,D0
  165.     move.l    D0,-8(A5)
  166.     pea.l    -8(A5)
  167.     move.l    D2,-(sp)
  168.     move.l    -4(A5),-(sp)
  169.     jsr    _Proc7(pc)
  170.     lea    12(sp),sp
  171.     addq.l    #$01,-4(A5)
  172. l25
  173.     cmp.l    -4(A5),D2
  174.     bgt    l24
  175. l49
  176. l26
  177.     move.l    -8(A5),-(sp)
  178.     move.l    -4(A5),-(sp)
  179.     pea.l    _Array2Glob(A4)
  180.     pea.l    _Array1Glob(A4)
  181.     jsr    _Proc8(pc)
  182.     lea    16(sp),sp
  183.     move.l    _PtrGlb(A4),-(sp)
  184.     jsr    _Proc1(pc)
  185.     addq.l    #4,sp
  186.     moveq.l    #65,D3
  187.     bra    l30
  188. l27
  189.     pea    67.W
  190.     move.b    D3,D0
  191.     ext.w    D0
  192.     ext.l    D0
  193.     move.l    D0,-(sp)
  194.     jsr    _Func1(pc)
  195.     addq.l    #8,sp
  196.     cmp.l    -14(A5),D0
  197.     bne    l32
  198. l50
  199. l31
  200.     pea.l    -14(A5)
  201.     clr.l    -(sp)
  202.     jsr    _Proc6(pc)
  203.     addq.l    #8,sp
  204. l32
  205. l33
  206. l28
  207.     addq.b    #$01,D3
  208. l30
  209.     cmp.b    _Char2Glob(A4),D3
  210.     ble    l27
  211. l51
  212. l29
  213.     move.l    D2,D0
  214.     move.l    -4(A5),D1
  215.     jsr    __muls(pc)
  216.     move.l    D0,-8(A5)
  217.     move.l    -8(A5),D0
  218.     move.l    -4(A5),D1
  219.     jsr    __divs(pc)
  220.     move.l    D0,D2
  221.     move.w    -6(A5),D0
  222.     move.w    D2,D1
  223.     neg.w    D1
  224.     add.w    D0,D1
  225.     muls.w    #$07,D1
  226.     move.l    D1,D2
  227.     sub.l    -4(A5),D2
  228.     move.l    D2,-(sp)
  229.     jsr    _fake(pc)
  230.     addq.l    #4,sp
  231.     pea.l    -4(A5)
  232.     jsr    _Proc2(pc)
  233.     addq.l    #4,sp
  234. l21
  235.     addq.l    #$01,D7
  236. l23
  237.     cmp.l    _LOOPS(A4),D7
  238.     blt    l20
  239. l52
  240. l22
  241.     jsr    _Permit(pc)
  242.     jsr    _timer(pc)
  243.     move.l    D0,D1
  244.     move.l    D1,D0
  245.     sub.l    D4,D0
  246.     move.l    D0,D5
  247.     sub.l    D6,D5
  248.     move.l    D5,D0
  249.     move.l    #$03E8,D1
  250.     jsr    __mods(pc)
  251.     move.l    D0,-(sp)
  252.     move.l    D5,D0
  253.     move.l    #$03E8,D1
  254.     jsr    __divs(pc)
  255.     move.l    D0,-(sp)
  256.     move.l    _LOOPS(A4),-(sp)
  257.     pea.l    l36(pc)
  258.     jsr    _printf(pc)
  259.     lea    16(sp),sp
  260.     move.l    _LOOPS(A4),D0
  261.     move.l    #$03E8,D1
  262.     jsr    __muls(pc)
  263.     addq.l    #$01,D5
  264.     move.l    D5,D1
  265.     jsr    __divs(pc)
  266.     move.l    D0,-(sp)
  267.     pea.l    l37(pc)
  268.     jsr    _printf(pc)
  269.     addq.l    #8,sp
  270.     move.l    D5,D0
  271.     bra    l39
  272. l39
  273.     unlk    A5
  274.     movem.l    (sp)+,D2/D3/D4/D5/D6/D7
  275.     rts
  276. l41    reg    D2/D3/D4/D5/D6/D7
  277. l40    equ    32
  278. l38    equ    76
  279.     procend
  280.     procstart
  281.     xdef    _timer
  282. _timer:
  283.     movem.l    l56,-(sp)
  284.     link    A5,#-l53
  285.     pea.l    -8(A5)
  286.     pea.l    -4(A5)
  287.     jsr    _CurrentTime(pc)
  288.     addq.l    #8,sp
  289.     move.l    -4(A5),D0
  290.     move.l    #$03E8,D1
  291.     jsr    __mulu(pc)
  292.     move.l    D0,D2
  293.     move.l    -8(A5),D0
  294.     move.l    #$03E8,D1
  295.     jsr    __divu(pc)
  296.     add.l    D2,D0
  297.     bra    l54
  298. l54
  299.     unlk    A5
  300.     move.l    (sp)+,D2
  301.     rts
  302. l56    reg    D2
  303. l55    equ    12
  304. l53    equ    8
  305.     procend
  306.     procstart
  307.     xdef    _Proc1
  308. _Proc1:
  309.     movem.l    l64,-(sp)
  310.     move.l    l63-4(A7),A2
  311.     link    A5,#-l61
  312.     move.l    (A2),A0
  313.     move.l    _PtrGlb(A4),A1
  314.     moveq.l    #11,D0
  315.     lea.l    (A1),A1
  316.     lea.l    (A0),A3
  317. l67
  318.     move.l    (A1)+,(A3)+
  319.     dbf    D0,l67
  320.     moveq.l    #5,D0
  321.     move.l    D0,12(A2)
  322.     move.l    (A2),A0
  323.     move.l    12(A2),12(A0)
  324.     move.l    (A2),A0
  325.     move.l    (A2),(A0)
  326.     move.l    (A2),A0
  327.     move.l    (A0),-(sp)
  328.     jsr    _Proc3(pc)
  329.     addq.l    #4,sp
  330.     move.l    (A2),A0
  331.     tst.l    4(A0)
  332.     bne    l59
  333. l58
  334.     move.l    (A2),A0
  335.     moveq.l    #6,D0
  336.     move.l    D0,12(A0)
  337.     move.l    (A2),A0
  338.     pea.l    8(A0)
  339.     move.l    8(A2),-(sp)
  340.     jsr    _Proc6(pc)
  341.     addq.l    #8,sp
  342.     move.l    (A2),A0
  343.     move.l    _PtrGlb(A4),A1
  344.     move.l    (A1),(A0)
  345.     move.l    (A2),A0
  346.     pea.l    12(A0)
  347.     pea    10.W
  348.     move.l    (A2),A0
  349.     move.l    12(A0),-(sp)
  350.     jsr    _Proc7(pc)
  351.     lea    12(sp),sp
  352.     bra    l60
  353. l59
  354.     move.l    (A2),A0
  355.     moveq.l    #11,D0
  356.     lea.l    (A0),A0
  357.     lea.l    (A2),A1
  358. l69
  359.     move.l    (A0)+,(A1)+
  360.     dbf    D0,l69
  361. l60
  362. l62
  363.     unlk    A5
  364.     movem.l    (sp)+,A2/A3
  365.     rts
  366. l64    reg    A2/A3
  367. l63    equ    16
  368. l61    equ    0
  369.     procend
  370.     procstart
  371.     xdef    _Proc2
  372. _Proc2:
  373.     movem.l    l83,-(sp)
  374.     move.l    l82-4(A7),A0
  375.     link    A5,#-l80
  376.     moveq.l    #10,D0
  377.     add.l    (A0),D0
  378. l70
  379.     cmp.b    #$41,_Char1Glob(A4)
  380.     bne    l75
  381. l85
  382. l74
  383.     subq.l    #$01,D0
  384.     move.l    D0,D2
  385.     sub.l    _IntGlob(A4),D2
  386.     move.l    D2,(A0)
  387.     moveq.l    #0,D1
  388. l75
  389. l76
  390.     tst.l    D1
  391.     bne    l78
  392. l77
  393.     bra    l72
  394. l78
  395. l79
  396. l71
  397.     bra    l70
  398. l72
  399. l81
  400.     unlk    A5
  401.     move.l    (sp)+,D2
  402.     rts
  403. l83    reg    D2
  404. l82    equ    12
  405. l80    equ    0
  406.     procend
  407.     procstart
  408.     xdef    _Proc3
  409. _Proc3:
  410.     movem.l    l92,-(sp)
  411.     move.l    l91-4(A7),A2
  412.     link    A5,#-l89
  413.     tst.l    _PtrGlb(A4)
  414.     beq    l87
  415. l86
  416.     move.l    _PtrGlb(A4),A0
  417.     move.l    (A0),(A2)
  418.     bra    l88
  419. l87
  420.     moveq.l    #100,D0
  421.     move.l    D0,_IntGlob(A4)
  422. l88
  423.     move.l    _PtrGlb(A4),A0
  424.     pea.l    12(A0)
  425.     move.l    _IntGlob(A4),-(sp)
  426.     pea    10.W
  427.     jsr    _Proc7(pc)
  428.     lea    12(sp),sp
  429. l90
  430.     unlk    A5
  431.     move.l    (sp)+,A2
  432.     rts
  433. l92    reg    A2
  434. l91    equ    12
  435. l89    equ    0
  436.     procend
  437.     procstart
  438.     xdef    _Proc4
  439. _Proc4:
  440.     movem.l    l97,-(sp)
  441.     link    A5,#-l94
  442.     moveq.l    #0,D0
  443.     cmp.b    #$41,_Char1Glob(A4)
  444.     seq.b    D0
  445.     neg.b    D0
  446.     or.l    _BoolGlob(A4),D0
  447.     move.b    #$42,_Char2Glob(A4)
  448.     moveq.l    #0,D0
  449.     bra    l95
  450. l95
  451.     unlk    A5
  452.     rts
  453. l97    reg    
  454. l96    equ    8
  455. l94    equ    0
  456.     procend
  457.     procstart
  458.     xdef    _Proc5
  459. _Proc5:
  460.     movem.l    l104,-(sp)
  461.     link    A5,#-l101
  462.     move.b    #$41,_Char1Glob(A4)
  463.     moveq.l    #0,D0
  464.     move.l    D0,_BoolGlob(A4)
  465. l102
  466.     unlk    A5
  467.     rts
  468. l104    reg    
  469. l103    equ    8
  470. l101    equ    0
  471.     procend
  472.     procstart
  473.     xdef    _Proc6
  474. _Proc6:
  475.     movem.l    l122,-(sp)
  476.     move.l    l121-4(A7),D2
  477.     move.l    l121+0(A7),A2
  478.     link    A5,#-l119
  479.     move.l    D2,(A2)
  480.     move.l    D2,-(sp)
  481.     jsr    _Func3(pc)
  482.     addq.l    #4,sp
  483.     tst.l    D0
  484.     bne    l107
  485. l106
  486.     moveq.l    #3,D0
  487.     move.l    D0,(A2)
  488. l107
  489. l108
  490.     move.l    D2,D0
  491.     tst.l    D0
  492.     beq    l111
  493.     subq.l    #$01,D0
  494.     beq    l112
  495.     subq.l    #$01,D0
  496.     beq    l116
  497.     subq.l    #$01,D0
  498.     beq    l117
  499.     subq.l    #$01,D0
  500.     beq    l118
  501.     bra    l110
  502. l111
  503.     moveq.l    #0,D0
  504.     move.l    D0,(A2)
  505.     bra    l110
  506. l112
  507.     moveq.l    #100,D0
  508.     cmp.l    _IntGlob(A4),D0
  509.     bge    l114
  510. l124
  511. l113
  512.     moveq.l    #0,D0
  513.     move.l    D0,(A2)
  514.     bra    l115
  515. l114
  516.     moveq.l    #3,D0
  517.     move.l    D0,(A2)
  518. l115
  519.     bra    l110
  520. l116
  521.     moveq.l    #1,D0
  522.     move.l    D0,(A2)
  523.     bra    l110
  524. l117
  525.     bra    l110
  526. l118
  527.     moveq.l    #2,D0
  528.     move.l    D0,(A2)
  529. l110
  530.     moveq.l    #0,D0
  531.     bra    l120
  532. l120
  533.     unlk    A5
  534.     movem.l    (sp)+,D2/A2
  535.     rts
  536. l122    reg    D2/A2
  537. l121    equ    16
  538. l119    equ    0
  539.     procend
  540.     procstart
  541.     xdef    _Proc7
  542. _Proc7:
  543.     movem.l    l128,-(sp)
  544.     move.l    l127-4(A7),D0
  545.     move.l    l127+0(A7),D1
  546.     move.l    l127+4(A7),A0
  547.     link    A5,#-l125
  548.     moveq.l    #2,D2
  549.     add.l    D0,D2
  550.     move.l    D1,D3
  551.     add.l    D2,D3
  552.     move.l    D3,(A0)
  553.     moveq.l    #0,D0
  554.     bra    l126
  555. l126
  556.     unlk    A5
  557.     movem.l    (sp)+,D2/D3
  558.     rts
  559. l128    reg    D2/D3
  560. l127    equ    16
  561. l125    equ    0
  562.     procend
  563.     procstart
  564.     xdef    _Proc8
  565. _Proc8:
  566.     movem.l    l137,-(sp)
  567.     move.l    l136-4(A7),A2
  568.     move.l    l136+0(A7),A3
  569.     move.l    l136+4(A7),D2
  570.     move.l    l136+8(A7),D3
  571.     link    A5,#-l134
  572.     moveq.l    #5,D4
  573.     add.l    D2,D4
  574.     move.l    D4,D0
  575.     asl.l    #$02,D0
  576.     move.l    D3,0(A2,D0.L)
  577.     moveq.l    #1,D0
  578.     add.l    D4,D0
  579.     asl.l    #$02,D0
  580.     move.l    D4,D1
  581.     asl.l    #$02,D1
  582.     move.l    0(A2,D1.L),0(A2,D0.L)
  583.     moveq.l    #30,D0
  584.     add.l    D4,D0
  585.     asl.l    #$02,D0
  586.     move.l    D4,0(A2,D0.L)
  587.     move.l    D4,D5
  588.     bra    l133
  589. l130
  590.     move.l    D4,D0
  591.     move.l    #$CC,D1
  592.     jsr    __muls(pc)
  593.     move.l    D5,D1
  594.     asl.l    #$02,D1
  595.     lea.l    0(A3,D0.L),A0
  596.     add.l    D1,A0
  597.     move.l    D4,(A0)
  598. l131
  599.     addq.l    #$01,D5
  600. l133
  601.     moveq.l    #1,D1
  602.     add.l    D4,D1
  603.     cmp.l    D5,D1
  604.     bge    l130
  605. l139
  606. l132
  607.     move.l    D4,D1
  608.     move.l    D1,D0
  609.     move.l    #$CC,D1
  610.     jsr    __muls(pc)
  611.     move.l    D0,D1
  612.     move.l    D4,D0
  613.     subq.l    #$01,D0
  614.     asl.l    #$02,D0
  615.     lea.l    0(A3,D1.L),A0
  616.     add.l    D0,A0
  617.     addq.l    #$01,(A0)
  618.     moveq.l    #20,D0
  619.     add.l    D4,D0
  620.     move.l    #$CC,D1
  621.     jsr    __muls(pc)
  622.     move.l    D4,D1
  623.     asl.l    #$02,D1
  624.     lea.l    0(A3,D0.L),A0
  625.     add.l    D1,A0
  626.     move.l    D4,D1
  627.     asl.l    #$02,D1
  628.     move.l    0(A2,D1.L),(A0)
  629.     moveq.l    #5,D1
  630.     move.l    D1,_IntGlob(A4)
  631. l135
  632.     unlk    A5
  633.     movem.l    (sp)+,D2/D3/D4/D5/A2/A3
  634.     rts
  635. l137    reg    D2/D3/D4/D5/A2/A3
  636. l136    equ    32
  637. l134    equ    0
  638.     procend
  639.     procstart
  640.     xdef    _Func1
  641. _Func1:
  642.     movem.l    l146,-(sp)
  643.     move.b    l145-1(A7),D0
  644.     move.b    l145+3(A7),D1
  645.     link    A5,#-l143
  646.     move.b    D0,D2
  647.     move.b    D2,D3
  648.     cmp.b    D3,D1
  649.     beq    l141
  650. l148
  651. l140
  652.     moveq.l    #0,D0
  653.     bra    l144
  654.     bra    l142
  655. l141
  656.     moveq.l    #1,D0
  657.     bra    l144
  658. l142
  659. l144
  660.     unlk    A5
  661.     movem.l    (sp)+,D2/D3
  662.     rts
  663. l146    reg    D2/D3
  664. l145    equ    16
  665. l143    equ    0
  666.     procend
  667.     procstart
  668.     xdef    _Func2
  669. _Func2:
  670.     movem.l    l167,-(sp)
  671.     move.l    l166-4(A7),A2
  672.     move.l    l166+0(A7),A3
  673.     link    A5,#-l164
  674.     moveq.l    #1,D2
  675.     bra    l150
  676. l149
  677.     moveq.l    #1,D0
  678.     add.l    D2,D0
  679.     subq.l    #4,sp
  680.     move.b    0(A3,D0.L),3(A7)
  681.     subq.l    #4,sp
  682.     move.b    0(A2,D2.L),3(A7)
  683.     jsr    _Func1(pc)
  684.     addq.l    #8,sp
  685.     tst.l    D0
  686.     bne    l153
  687. l152
  688.     moveq.l    #65,D3
  689.     addq.l    #$01,D2
  690. l153
  691. l154
  692. l150
  693.     moveq.l    #1,D0
  694.     cmp.l    D2,D0
  695.     bge    l149
  696. l169
  697. l151
  698.     cmp.b    #$57,D3
  699.     blt    l156
  700. l171
  701.     cmp.b    #$5A,D3
  702.     bgt    l156
  703. l172
  704. l170
  705. l155
  706.     moveq.l    #7,D2
  707. l156
  708. l157
  709.     cmp.b    #$58,D3
  710.     bne    l159
  711. l173
  712. l158
  713.     moveq.l    #1,D0
  714.     bra    l165
  715.     bra    l160
  716. l159
  717.     move.l    A3,-(sp)
  718.     move.l    A2,-(sp)
  719.     jsr    _strcmp(pc)
  720.     addq.l    #8,sp
  721.     tst.l    D0
  722.     ble    l162
  723. l174
  724. l161
  725.     addq.l    #$07,D2
  726.     moveq.l    #1,D0
  727.     bra    l165
  728.     bra    l163
  729. l162
  730.     moveq.l    #0,D0
  731.     bra    l165
  732. l163
  733. l160
  734. l165
  735.     unlk    A5
  736.     movem.l    (sp)+,D2/D3/A2/A3
  737.     rts
  738. l167    reg    D2/D3/A2/A3
  739. l166    equ    24
  740. l164    equ    0
  741.     procend
  742.     procstart
  743.     xdef    _Func3
  744. _Func3:
  745.     movem.l    l181,-(sp)
  746.     move.l    l180-4(A7),D0
  747.     link    A5,#-l178
  748.     move.l    D0,D1
  749.     moveq.l    #2,D2
  750.     cmp.l    D1,D2
  751.     bne    l176
  752. l183
  753. l175
  754.     moveq.l    #1,D0
  755.     bra    l179
  756. l176
  757. l177
  758.     moveq.l    #0,D0
  759.     bra    l179
  760. l179
  761.     unlk    A5
  762.     move.l    (sp)+,D2
  763.     rts
  764. l181    reg    D2
  765. l180    equ    12
  766. l178    equ    0
  767.     procend
  768.     procstart
  769.     xdef    _strcpy
  770. _strcpy:
  771.     movem.l    l190,-(sp)
  772.     move.l    l189-4(A7),A0
  773.     move.l    l189+0(A7),A1
  774.     link    A5,#-l187
  775.     bra    l185
  776. l184
  777.     move.l    A0,A2
  778.     addq.l    #$01,A0
  779.     move.l    A1,A3
  780.     addq.l    #$01,A1
  781.     move.b    (A3),(A2)
  782. l185
  783.     tst.b    (A1)
  784.     bne    l184
  785. l186
  786. l188
  787.     unlk    A5
  788.     movem.l    (sp)+,A2/A3
  789.     rts
  790. l190    reg    A2/A3
  791. l189    equ    16
  792. l187    equ    0
  793.     procend
  794.     procstart
  795.     xdef    _strcmp
  796. _strcmp:
  797.     movem.l    l201,-(sp)
  798.     move.l    l200-4(A7),A0
  799.     move.l    l200+0(A7),A1
  800.     link    A5,#-l198
  801.     bra    l193
  802. l192
  803.     tst.b    (A1)
  804.     beq    l196
  805. l195
  806.     bra    l194
  807. l196
  808. l197
  809. l193
  810.     move.l    A0,A2
  811.     addq.l    #$01,A0
  812.     move.l    A1,A3
  813.     addq.l    #$01,A1
  814.     move.b    (A2),D0
  815.     cmp.b    (A3),D0
  816.     beq    l192
  817. l203
  818. l194
  819.     move.b    (A0),D0
  820.     sub.b    (A1),D0
  821.     ext.w    D0
  822.     ext.l    D0
  823.     bra    l199
  824. l199
  825.     unlk    A5
  826.     movem.l    (sp)+,A2/A3
  827.     rts
  828. l201    reg    A2/A3
  829. l200    equ    16
  830. l198    equ    0
  831.     procend
  832.     xref    __divu
  833.     xref    __mulu
  834.     xref    __mods
  835.     xref    __divs
  836.     xref    __muls
  837.     xref    _CurrentTime
  838.     xref    _printf
  839.     xref    _malloc
  840.     xref    _Permit
  841.     xref    _Forbid
  842. l37
  843.  
  844.     dc.b    $54,$68,$69,$73,$20,$6D,$61,$63,$68,$69,$6E,$65
  845.     dc.b    $20,$62,$65,$6E,$63,$68,$6D,$61,$72,$6B,$73,$20
  846.     dc.b    $61,$74,$20,$25,$6C,$64,$20,$64,$68,$72,$79,$73
  847.     dc.b    $74,$6F,$6E,$65,$73,$2F,$73,$65,$63,$6F,$6E,$64
  848.     dc.b    $0A,$00
  849. l36
  850.  
  851.     dc.b    $44,$68,$72,$79,$73,$74,$6F,$6E,$65,$20,$74,$69
  852.     dc.b    $6D,$65,$20,$66,$6F,$72,$20,$25,$6C,$64,$20,$70
  853.     dc.b    $61,$73,$73,$65,$73,$20,$3D,$20,$25,$6C,$64,$2E
  854.     dc.b    $25,$30,$33,$64,$0A,$00
  855. l35
  856.  
  857.     dc.b    $44,$48,$52,$59,$53,$54,$4F,$4E,$45,$20,$50,$52
  858.     dc.b    $4F,$47,$52,$41,$4D,$2C,$20,$32,$27,$4E,$44,$20
  859.     dc.b    $53,$54,$52,$49,$4E,$47,$00
  860. l34
  861.  
  862.     dc.b    $44,$48,$52,$59,$53,$54,$4F,$4E,$45,$20,$50,$52
  863.     dc.b    $4F,$47,$52,$41,$4D,$2C,$20,$53,$4F,$4D,$45,$20
  864.     dc.b    $53,$54,$52,$49,$4E,$47,$00
  865.     END
  866.